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TOLEDO EXTENDED MEMORY BINARY PUNCH 


DECUS Program Library Write-up 


DECUS NO. 8-344 


DESCRIPTION: 

This program operates in exactly the same manner as does the DEC binary 
punch (DEC-8-5-U) when field designations are not desired on the binary tape. 
However, provision for changing the field from which data is taken, and for 
inserting a field designation on the punched tape are included. The program 
is thus more versatile than DECUS 8-142, in which field designations must 
always be punched. 

OPERATION: 


For details, see the description for DEC-8-5-U. 
program and the program to be punched are in memory, 
as follows. The figures in (....) are the addresses 
halt, provided the program was loaded at 7600. 


Assuming that this 
proceed stepwise 
in the PC at each 


1. Set the console switches as follows: 

SR: The starting address of this program (i.e., 7600); 

IF: The field in which this program was loaded; 

DF: The field from which the first block of program is to be 
taken. (This setting is unnecessary if a field 
designation is to be added to the first block punched.) 

2. Press LOAD ADDR and START, Leader will be punched and the 
computer will halt (7605). 

3. Place in the SR the number of blocks of program to be punched, 
and press CONTINUE. The computer will halt (7611). 

4. If no field designation is desired, skip this step and continue 
at 5 below. Set the field desired in the SR, press EXAMINE, then 
press CONTINUE. One char, will be punched and the computer will 
halt (7623). 


5. Place the first address of the current block in the SR and press 
CONTINUE. The computer will halt (7626). 

6. Place the last address of the block in the SR and press CONTINUE. 
The computer will punch the current block. If this is the final 
block the sum check and trailer will be added and the computer 
will halt (7654). If this is not the final block, return to step 
4 or 5. Note that a return to step L is required when the field 

is to be changed. If the next block is from the same field as that 
preceding, continue at step 5. 










MODIFICATIONS: 


\ 


1. Field designation on this program : The binary version furnished 

has no field designation. Such designation can be added by merely loading this 
program in the desired field, then using it to punch out a field-designated 
version of itself. The version thus created is then protected against loading 
over the binary loader. This program uses 7600-7726. 

2. Rim-load Version : Users with severe memory-space problems may wish 
to make a rim-load version of this program that can temporarily replace the 
bin loader. This can be done with the DEC RIM Punch, by loading this program 
in any field, loading the RIM punch, then setting IF the field containing 
the RIM punch and DF to the field containing this program, and following 

the RIM punch instructions. 

3. ASR-33 punch : This program is written for the high speed punch. 

For the ASR-33 punch, the following modifications are required: 

7601/6046 

7707/6o4r 

7711/6046 




# 


2 












7600 

7300 

*7600 

BPUN* CLA 

7601 

6026 

PLS 

7602 

3313 

DCA CKSM 

760 3 

4255 

JMS PLOT 

760 4 

7402 

HLT 

7605 

760 4 

LAS 

760 6 

7041 

CIA 

760 7 

331 4 

DCA NB 

7610 

7402 

NXBL, HLT 

761 1 

5223 

JMP JOIN 

7612 

760 4 

LAS 

761 3 

7106 

CLL RTL 

761 4 

700 4 

RAL 

761 5 

1322 

TAD C300 

761 6 

4306 

JMS PUN 

761 7 

1 323 

TAD C5701 

7620 

3221 

DCA .♦! 

7621 

0000 

0 

7622 

7402 

HLT 

7623 

760 4 

JOIN, LAS 

7624 

331 5 

DCA IA 

7625 

7402 

HLT 

7626 

760 4 

LAS 

7627 

7001 

IAC 

7630 

331 6 

DCA FA 

7631 

1315 

TAD IA 

7632 

7120 

STL 

7633 

4266 

PUNL, JMS 1 

7634 

131 5 

TAD ia 

7635 

7041 

CIA 

7636 

1 31 6 

TAD FA 

7637 

7650 

SNA CLA 

7640 

5245 

JMP .+5 

7641 

1 71 5 

TAD I IA 


/BINARY PUNCH 8-5-U MODIFIED FOR EXTENDED MEMORY 


CLL 


/SKIP FIELD 
/GET FIELD 


DESIGNATION 


/PUNCH FIELD DESIGNATION 
/CHANGE FIELD 


BINP 


7642 

7100 

CLL 


7643 

231 5 

ISZ 

IA 

7644 

5233 

JMP 

PUNL 

7645 

231 4 

ISZ 

NB 

764 6 

5210 

JMP 

NXBL 

7647 

1313 

TAD 

CKSM 

7650 

7100 

CLL 


7651 

4266 

JMS 

BINP 

7652 

4255 

JMS 

PLOT 

7653 

7402 

HLT 


76 5 4 

5200 

JMP 

BPUN 

7655 

0000 

PLOT, 

. 0 

7656 

7300 

CLA 

CLL 

7657 

1317 

TAD 

M21 2 

7660 

3320 

DCA 

CTR1 

7661 

1 321 

TAD 

C200 

7662 

430 6 

JMS 

PUN 

7663 

2320 

ISZ 

CTR1 

7664 

5262 

JMP 

• *2 

7665 

5655 

JMP 

I PLOT 


3 







7666 

7667 

7670 

7671 

7672 
767 3 

7674 

7675 

7676 

7677 

7700 

7701 

7702 
770 3 
770 4 
770 5 
770 6 

770 7 
7710 

771 1 
7712 
771 3 
771 4 
771 5 
771 6 
771 7 

7720 

7721 

7722 

7723 

7724 

7725 

7726 

81NP 

BP UN 

CKSM 

CTR1 

C200 

C300 

C5701 

FA 

IA 

JOIN 

M212 

N8 

NXBL 

PLOT 

PUN 

PUNL 

SL6 

SL7 

TEM1 


0000 BINP, 0 
3324 DCA TEM1 

1324 TAD TEM1 

7012 RTR 

7012 RTR 

7012 RTR 

0325 AND SL7 

4306 JMS PUN 

1313 TAD CKSM 

3313 DCA CKSM 

1324 TAD TEM1 

0326 ANO SL6 

4306 JMS PUN 

1313 TAD CKSM 

3313 DCA CKSM 

5666 JMP I 81NP 

0000 PUN, 0 

6021 PSF 

5307 JMP .-1 

6026 PLS 

5706 JMP I PUN 

0000 CKSM, 0 
0000 NB, 0 
0000 IA, 0 
0000 FA, 0 

7566 M212, -212 /LENGTH OF LEADER: CHANGE AS DESIRED 

0000 CTR1, 0 

0200 C200, 200 

0300 C300, 300 

5701 C5701, 5701 

0000 TEM1, 0 

0177 SL7, 177 

0077 SL6, 77 


7666 
7600 
771 3 

7720 

7721 

7722 

7723 
771 6 
771 5 
7623 
77! 7 
771 4 
7610 
7655 
7706 
7633 
7726 
7725 

7724 


4 







